<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=11"/>
<meta name="generator" content="Doxygen 1.12.0"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>Dataset-JSON v1.1 Hands-On Implementation Training: macros/convert_boolean_to_char.sas Source File</title>
<link href="../../tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../jquery.js"></script>
<script type="text/javascript" src="../../dynsections.js"></script>
<script type="text/javascript" src="../../clipboard.js"></script>
<link href="../../navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../navtreedata.js"></script>
<script type="text/javascript" src="../../navtree.js"></script>
<script type="text/javascript" src="../../resize.js"></script>
<script type="text/javascript" src="../../cookie.js"></script>
<link href="../../search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../search/searchdata.js"></script>
<script type="text/javascript" src="../../search/search.js"></script>
<link href="../../doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr id="projectrow">
  <td id="projectalign">
   <div id="projectname">Dataset-JSON v1.1 Hands-On Implementation Training
   </div>
   <div id="projectbrief">Dataset-JSON v1.1 Hands-On Implementation Training</div>
  </td>
 </tr>
 </tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.12.0 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
var searchBox = new SearchBox("searchBox", "../../search/",'.html');
/* @license-end */
</script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function() { codefold.init(1); });
/* @license-end */
</script>
<script type="text/javascript" src="../../menudata.js"></script>
<script type="text/javascript" src="../../menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function() {
  initMenu('../../',true,false,'search.php','Search',true);
  $(function() { init_search(); });
});
/* @license-end */
</script>
<div id="main-nav"></div>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
      <div id="nav-sync" class="sync"></div>
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function(){initNavTree('dd/d00/convert__boolean__to__char_8sas_source.html','../../'); initResizable(true); });
/* @license-end */
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<div id="MSearchResults">
<div class="SRPage">
<div id="SRIndex">
<div id="SRResults"></div>
<div class="SRStatus" id="Loading">Loading...</div>
<div class="SRStatus" id="Searching">Searching...</div>
<div class="SRStatus" id="NoMatches">No Matches</div>
</div>
</div>
</div>
</div>

<div class="header">
  <div class="headertitle"><div class="title">convert_boolean_to_char.sas</div></div>
</div><!--header-->
<div class="contents">
<div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno">    1</span>%macro convert_boolean_to_char(ds=, outds=, varlist=);</div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno">    2</span> </div>
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno">    3</span>  %local _varlist _variable _outds _random _words _i;</div>
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno">    4</span>  </div>
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno">    5</span>  %<span class="keywordflow">if</span> not %sysfunc(exist(&amp;ds)) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno">    6</span>    %put ER%str(ROR): [&amp;sysmacroname] Dataset &amp;ds does not exist.;</div>
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno">    7</span>    %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno">    8</span>  %end;   </div>
<div class="line"><a id="l00009" name="l00009"></a><span class="lineno">    9</span> </div>
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno">   10</span>  %let _random=%sysfunc(putn(%sysevalf(%sysfunc(ranuni(0))*10000,floor),z4.));</div>
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno">   11</span>  %let _words = %sysfunc(countw(&amp;varlist, %str(<span class="charliteral">&#39; &#39;</span>)));</div>
<div class="line"><a id="l00012" name="l00012"></a><span class="lineno">   12</span>  %let _outds = &amp;outds;</div>
<div class="line"><a id="l00013" name="l00013"></a><span class="lineno">   13</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(outds)=, <span class="keywordtype">boolean</span>) %then %let _outds = &amp;ds;</div>
<div class="line"><a id="l00014" name="l00014"></a><span class="lineno">   14</span> </div>
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno">   15</span>  %let _varlist=;</div>
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno">   16</span>  %<span class="keywordflow">do</span> _i = 1 %to &amp;_words;</div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno">   17</span>    %let _variable = %scan(&amp;varlist, &amp;_i);</div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno">   18</span>    %<span class="keywordflow">if</span> %cstutilcheckvarsexist(_cstDataSetName=&amp;ds, _cstVarList=&amp;_variable)=0</div>
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno">   19</span>      %then %put WAR%str(NING): [&amp;sysmacroname] Variable &amp;_variable does not exist in dataset &amp;ds..;</div>
<div class="line"><a id="l00020" name="l00020"></a><span class="lineno">   20</span>      %<span class="keywordflow">else</span> %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00021" name="l00021"></a><span class="lineno">   21</span>        %<span class="keywordflow">if</span> %cstutilgetattribute(_cstDataSetName=&amp;ds, _cstVarName=&amp;_variable, _cstAttribute=VARTYPE) eq N</div>
<div class="line"><a id="l00022" name="l00022"></a><span class="lineno">   22</span>          %then %let _varlist = &amp;_varlist &amp;_variable;</div>
<div class="line"><a id="l00023" name="l00023"></a><span class="lineno">   23</span>          %<span class="keywordflow">else</span> %put WAR%str(NING): [&amp;sysmacroname] Variable &amp;_variable is not a numerical variable.;</div>
<div class="line"><a id="l00024" name="l00024"></a><span class="lineno">   24</span>      %end;  </div>
<div class="line"><a id="l00025" name="l00025"></a><span class="lineno">   25</span>  %end;  </div>
<div class="line"><a id="l00026" name="l00026"></a><span class="lineno">   26</span>  %let _words = %sysfunc(countw(&amp;_varlist, %str(<span class="charliteral">&#39; &#39;</span>)));</div>
<div class="line"><a id="l00027" name="l00027"></a><span class="lineno">   27</span> </div>
<div class="line"><a id="l00028" name="l00028"></a><span class="lineno">   28</span>  proc contents data=&amp;ds noprint out=work._contents_&amp;_random(keep=libname memname name varnum);</div>
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno">   29</span>  run;</div>
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno">   30</span> </div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno">   31</span>  proc sql noprint;</div>
<div class="line"><a id="l00032" name="l00032"></a><span class="lineno">   32</span>    select name into :_variables separated by <span class="charliteral">&#39; &#39;</span></div>
<div class="line"><a id="l00033" name="l00033"></a><span class="lineno">   33</span>      from work._contents_&amp;_random</div>
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno">   34</span>    order by varnum;</div>
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno">   35</span>  quit;</div>
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno">   36</span>  </div>
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno">   37</span>  %put &amp;=_variables;</div>
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno">   38</span>  </div>
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno">   39</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(_varlist)=, <span class="keywordtype">boolean</span>) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno">   40</span>    %<span class="keywordflow">if</span> %sysevalf(%superq(outds)=, <span class="keywordtype">boolean</span>)=0 %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno">   41</span>      data &amp;outds;</div>
<div class="line"><a id="l00042" name="l00042"></a><span class="lineno">   42</span>        <span class="keyword">set</span> &amp;ds;</div>
<div class="line"><a id="l00043" name="l00043"></a><span class="lineno">   43</span>      run;   </div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno">   44</span>    %end;</div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno">   45</span>  %end;</div>
<div class="line"><a id="l00046" name="l00046"></a><span class="lineno">   46</span>  %<span class="keywordflow">else</span> %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno">   47</span>    data &amp;_outds;</div>
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno">   48</span>      retain &amp;_variables;</div>
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno">   49</span>      length &amp;_varlist $3;</div>
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno">   50</span>    <span class="keyword">set</span> &amp;ds(rename=(%<span class="keywordflow">do</span> _i = 1 %to &amp;_words;%scan(&amp;_varlist, &amp;_i)=_%scan(&amp;_varlist, &amp;_i) %str ( )%end;));</div>
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno">   51</span>      %<span class="keywordflow">do</span> _i = 1 %to &amp;_words;</div>
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno">   52</span>        %let _variable = %scan(&amp;_varlist, &amp;_i);</div>
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno">   53</span>        &amp;_variable = <span class="stringliteral">&quot;&quot;</span>;</div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno">   54</span>        <span class="keywordflow">if</span> _&amp;_variable = 1 then &amp;_variable = <span class="stringliteral">&quot;Yes&quot;</span>;</div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno">   55</span>          <span class="keywordflow">else</span> <span class="keywordflow">if</span> _&amp;_variable = . then &amp;_variable = <span class="stringliteral">&quot;&quot;</span>;</div>
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno">   56</span>            <span class="keywordflow">else</span> <span class="keywordflow">if</span> _&amp;_variable = 0 then &amp;_variable = <span class="stringliteral">&quot;No&quot;</span>;</div>
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno">   57</span>             <span class="keywordflow">else</span> putlog <span class="stringliteral">&#39;WAR&#39;</span> <span class="stringliteral">&#39;NING:&#39;</span> <span class="stringliteral">&quot; [&amp;sysmacroname] &quot;</span> _n_= &amp;_variable.= _&amp;_variable.= <span class="stringliteral">&quot;must be 0, 1 or missing.&quot;</span>;</div>
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno">   58</span>        drop _&amp;_variable;</div>
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno">   59</span>      %end;  </div>
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno">   60</span>    run;</div>
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno">   61</span>  %end;</div>
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno">   62</span>  </div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno">   63</span>  </div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno">   64</span>  proc delete data=work._contents_&amp;_random;</div>
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno">   65</span>  run;</div>
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno">   66</span>  </div>
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno">   67</span>  %exit_macro:</div>
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno">   68</span> </div>
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno">   69</span>%mend convert_boolean_to_char;</div>
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno">   70</span> </div>
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno">   71</span> </div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno">   72</span><span class="comment">/*</span></div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno">   73</span><span class="comment">data class;</span></div>
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno">   74</span><span class="comment">   set sashelp.class;</span></div>
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno">   75</span><span class="comment">   bool = (age &gt; 13);</span></div>
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno">   76</span><span class="comment">   if _n_=3 then bool = 777;</span></div>
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno">   77</span><span class="comment">   if _n_=4 then bool = .;</span></div>
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno">   78</span><span class="comment">run;   </span></div>
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno">   79</span><span class="comment"></span> </div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno">   80</span><span class="comment">proc contents data=work.class varnum;</span></div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno">   81</span><span class="comment">run;</span></div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno">   82</span><span class="comment">proc print data=work.class;</span></div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno">   83</span><span class="comment">run;  </span></div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno">   84</span><span class="comment"></span> </div>
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno">   85</span><span class="comment">%convert_boolean_to_char(ds=work.classzzz, outds=work.class1, varlist=namez name bool);</span></div>
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno">   86</span><span class="comment">%convert_boolean_to_char(ds=work.class, outds=work.class1, varlist=namez name bool);</span></div>
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno">   87</span><span class="comment">proc contents data=work.class1 varnum;</span></div>
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno">   88</span><span class="comment">run;</span></div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno">   89</span><span class="comment">proc print data=work.class1;</span></div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno">   90</span><span class="comment">run;  </span></div>
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno">   91</span><span class="comment">*/</span></div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
  <ul>
    <li class="navelem"><a class="el" href="../../dir_c8843521cc2b354892efaf471a0b361e.html">macros</a></li><li class="navelem"><b>convert_boolean_to_char.sas</b></li>
    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="../../doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.12.0 </li>
  </ul>
</div>
</body>
</html>
